home *** CD-ROM | disk | FTP | other *** search
/ Fifty: Elektronik / FIFTY Elektronik (PS_Computer_Vertrieb).iso / ps8 / fty1017 / gepackt.exe / DISK2 / PLOTSRC.EXE / DARSTEL.INC < prev    next >
Encoding:
Text File  |  1993-11-10  |  3.5 KB  |  123 lines
  1. Procedure Darstellen(Var DatF :Datafile);
  2.  
  3. Var Obj1   :BildElement;
  4.     TC     : Char;
  5.  
  6. Procedure GetSetupInfos(Var Obj :Bildelement);
  7. Begin
  8.    Case Obj.Elementtyp of
  9.      ED_CON1:BildElement(SetupInfo.Edsetup1):=Obj;
  10.      ED_CON2:BildElement(SetupInfo.Edsetup2):=Obj;
  11.      ED_CON3:Bildelement(SetupInfo.Edsetup3):=Obj;
  12.      ED_Time:DateInfo:=Obj;
  13.      ED_Info:If ED_InfoTyp(Obj).Typ=Container then
  14.               If Enter_To_LibList(Obj)<0 then Error(110);
  15.    end;
  16. End;
  17.  
  18. Begin
  19.   SaveCrtWindow;
  20.   SaveColors;
  21.   If Not Modeco80 then
  22.     begin
  23.        PlotWinCol:=Crt.black+16*Crt.LightGray;
  24.        PlotHeadCol:=Crt.black+16*Crt.LightGray;
  25.     end;
  26.   MakeWindow(Plot_win,6,8,70,15,PlotWinCol,wok);
  27.   With Plot_win do
  28.       Window(X1+1,Y1+1,X1+width-2,Y1+height-1);
  29.   MakeFrame(Plot_win,PlotWinCol,1);
  30.   WriteToWindow(plot_win,7,1,PlotHeadCol,' Ausgabe der Zeichnung: '+HauptF+Dsuf+' ');
  31.   ShowWindow(Plot_win);
  32.   SetEditColors(blue,lightgray,yellow,blue);
  33.   OpenPrOut(2,TC);
  34.   Actual_ObJNr:=0;
  35.   With Plot_win Do
  36.   begin
  37.     DisplayString(X1+3,Y1+6,PlotWinCol,'Plotte Zeichnungselement : ');
  38.     DisplayReal(X1+32,Y1+6,PlotHeadCol,Actual_ObjNr,6,0,false);
  39.   end;
  40.   FillChar(DateInfo,sizeof(DateInfo),0);
  41.   dateInfo.status:=65535;
  42.   If TC<>Esc Then
  43.     Begin
  44.       FlushKbd;
  45.       If DeviceInit<>'' then
  46.     If  NoError Then
  47.         begin
  48.         {$I-}
  49.           Write(PrOutFile,DeviceInit);
  50.           If AufDatei Then  NoError:=IOresult=0;
  51.         {$I+}
  52.         end;
  53.       PlotReset;
  54.       InitBackSc;
  55.       InitLayersetofPen;
  56.       With SetUpInfo.PinstInfo Do
  57.         If SpeedCom<>''then
  58.           If  NoError Then
  59.           begin {$I-}
  60.             Write(PrOutFile,SpeedCom,RealToInt(PlotSpeed*SpeedFac),EndSym);
  61.             If AufDatei Then  NoError:=IOresult=0;
  62.           end;  {$I+}
  63.       Actual_StiftNr:=1;
  64.       UsedLayers:=[];
  65.       Repeat
  66.         If (Actual_StiftNr=1) or
  67.            (PlotLayers*UsedLayers*LayersetofPen[Actual_StiftNr]<>[]) then
  68.         begin
  69.           Buffptr:=0;
  70.           Weiter:=true;
  71.           SelectPen(Actual_StiftNr);
  72.           (*$I-*)
  73.           Init_LibMan;
  74.           Seek(DatF,1);
  75.           OK:=IoResult=0;
  76.           (*$I+*)
  77.           While Not(Eof(DatF)) and Ok  and Weiter and Noerror Do
  78.           Begin
  79.             (*$I-*)
  80.             BlockRead(DatF,Obj1,1);
  81.             Ok:=IoResult=0;
  82.             (*$I+*)
  83.             If Ok and (Obj1.Status=0) then
  84.             begin
  85.               If Byte(Obj1.Elementtyp)<Byte(ED_CON1)  Then
  86.               begin
  87.                 If Obj1.Elementtyp=Macro Then
  88.                   ZeichneMac(Obj1)
  89.                 Else
  90.                   ZeichneaufBuf(Obj1,false);
  91.               end else GetSetupInfos(Obj1);
  92.             end;
  93.           End;
  94.           If Weiter Then ZeichneAufBuf(Obj1,true);
  95.         end; { If Plotlayers }
  96.         Inc(Actual_StiftNr,1);
  97.       Until  Not(Weiter) or (Actual_StiftNr>9);
  98.       Pencolor(0);
  99.       Moveto(0,0);
  100.       With SetupInfo.PinstInfo do
  101.       If  NoError Then
  102.        begin {$I-}
  103.          If ExitCom<>'' Then Write(PrOutFile,Exitcom);
  104.          If AufDatei Then  NoError:=IOresult=0;
  105.         end;  {$I+}
  106.       If DeviceExit<>'' then
  107.     If  NoError Then
  108.         begin
  109.         {$I-}
  110.           Write(PrOutFile,DeviceExit);
  111.           If AufDatei Then  NoError:=IOresult=0;
  112.         {$I+}
  113.         end;
  114.       ClosePrOut;
  115.       Buffptr:=0;
  116.       Weiter:=false;
  117.     End
  118.     Else Escape;
  119.   DeleteWindow(Plot_win);
  120.   RestoreColors;
  121.   RestoreCrtWindow;
  122. End;
  123.